@ /0000
JP PROGRAM
quatro JP /000
 LV /4
MM quatro_a
 LD quatro_a
MM RETORNO_FC
LD RETORNO_FC
RS quatro
PROGRAM LV /0
 LV /2
MM PROGRAM_i
 IF_1 LD PROGRAM_i
MM ARG_COND_1
 LV /2
MM ARG_COND_2
LD ARG_COND_1
 - ARG_COND_2
JN AUX_1
JZ AUX_1
SC quatro
MM quatro_1
LD quatro_1
MM PROGRAM_i
 LD PROGRAM_i
+	OFFSET
MM	RESULT_ASC
LD	STRING_1
PD	/100	;
LD	STRING_2
PD	/100	;
LD	STRING_3
PD	/100	;
LD	STRING_4
PD	/100	;
LD	STRING_5
PD	/100	;
LD	STRING_6
PD	/100	;
LD	STRING_7
PD	/100	;
LD	STRING_6
LD	RESULT_ASC
PD  /100
LD	NEW_LINE
PD	/100
JP END_IF_1
AUX_1 LV /0
 IF_2 LD PROGRAM_i
MM ARG_COND_1
SC quatro
MM quatro_2
LD quatro_2
MM ARG_COND_2
LD ARG_COND_2
 - ARG_COND_1
JN AUX_2
JZ AUX_2
    LV /3
MM _OP1
LV /1
MM _OP2
LD _OP1
* _OP2
MM TMP_0
LV /4
MM _OP2
LD TMP_0
+ _OP2
MM TMP_1
LD TMP_1
MM PROGRAM_i
 LD PROGRAM_i
+	OFFSET
MM	RESULT_ASC
LD	STRING_1
PD	/100	;
LD	STRING_2
PD	/100	;
LD	STRING_3
PD	/100	;
LD	STRING_4
PD	/100	;
LD	STRING_5
PD	/100	;
LD	STRING_6
PD	/100	;
LD	STRING_7
PD	/100	;
LD	STRING_6
LD	RESULT_ASC
PD  /100
LD	NEW_LINE
PD	/100
JP END_IF_2
AUX_2 LV /0
 LD PROGRAM_i
+	OFFSET
MM	RESULT_ASC
LD	STRING_1
PD	/100	;
LD	STRING_2
PD	/100	;
LD	STRING_3
PD	/100	;
LD	STRING_4
PD	/100	;
LD	STRING_5
PD	/100	;
LD	STRING_6
PD	/100	;
LD	STRING_7
PD	/100	;
LD	STRING_6
LD	RESULT_ASC
PD  /100
LD	NEW_LINE
PD	/100
END_IF_2 LV /0
END_IF_1 LV /0
WHILE_1   LD PROGRAM_i
MM ARG_COND_1
 LV /9
MM ARG_COND_2
LD ARG_COND_2
 - ARG_COND_1
JN END_WHILE_1
   LV /1
MM _OP1
LD _OP1
+ PROGRAM_i
MM TMP_2
LD TMP_2
MM PROGRAM_i
 LD PROGRAM_i
+	OFFSET
MM	RESULT_ASC
LD	STRING_1
PD	/100	;
LD	STRING_2
PD	/100	;
LD	STRING_3
PD	/100	;
LD	STRING_4
PD	/100	;
LD	STRING_5
PD	/100	;
LD	STRING_6
PD	/100	;
LD	STRING_7
PD	/100	;
LD	STRING_6
LD	RESULT_ASC
PD  /100
LD	NEW_LINE
PD	/100
 JP END_WHILE_1
END_WHILE_1 LV /0
HM /0
TMP_2 K /0
TMP_1 K /0
TMP_0 K /0
PROGRAM_i K /0
quatro_a K /0
quatro_quatro K /0
;FUNCOES[quatro_1, quatro_2]
quatro_2 K /0
quatro_1 K /0
ARG_COND_1 K /0
ARG_COND_2 K /0
_OP1 K /0
_OP2 K /0
AUX K /0
STRING_1 K	/53	; S
STRING_2 K	/41	; A
STRING_3 K	/49	; I
STRING_4 K	/44	; D
STRING_5 K	/41	; A
STRING_6  K	/20	; 
STRING_7  K	/3d	; =
NEW_LINE K	/0a	; NEW LINE
ARG_INT		K	/0	; ARG INT
OFFSET K	/30	; OFFSET
RESULT_ASC K	/0	; RESULT ASC
RETORNO_FC K /0

